home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #49 (Oct 89) / After Dark Source / GraphicsModule_main.p < prev    next >
Text File  |  1989-07-17  |  1KB  |  67 lines
  1. {}
  2. {    main.p}
  3. {    }
  4. {    This is a simple main function that handles the messages passed by After Dark to a }
  5. {    graphics module. }
  6. {    }
  7. {    By Patrick Beard and Bruce Burkhalter.}
  8. {    © 1989 Berkeley Systems, Inc. }
  9. {}
  10.  
  11. unit GraphicsModule_main;
  12.  
  13. interface
  14.  
  15.     uses
  16.         GraphicsModuleTypes;
  17.  
  18.     function main (var storage: Handle; blankRgn: rgnHandle; message: integer; params: GMParamBlockPtr): OSErr;
  19.  
  20. implementation
  21.  
  22.     function DoInitialize (var storage: Handle; blankRgn: rgnHandle; params: GMParamBlockPtr): OSErr;
  23.     external;
  24.  
  25.     function DoClose (storage: Handle; blankRgn: RgnHandle; params: GMParamBlockPtr): OSErr;
  26.     external;
  27.  
  28.     function DoBlank (storage: Handle; blankRgn: rgnHandle; params: GMParamBlockPtr): OSErr;
  29.     external;
  30.  
  31.     function DoDrawFrame (storage: Handle; blankRgn: rgnHandle; params: GMParamBlockPtr): OSErr;
  32.     external;
  33.  
  34.     function DoSetup (blankRgn: rgnHandle; message: integer; params: GMParamBlockPtr): OSErr;
  35.     external;
  36.  
  37.     function main;
  38.         var
  39.             err: OSErr;
  40.     begin {main}
  41.  
  42.         err := noErr;
  43.  
  44.         case message of
  45.  
  46.             Initialize: 
  47.                 err := DoInitialize(storage, blankRgn, params);
  48.  
  49.             Close: 
  50.                 err := DoClose(storage, blankRgn, params);
  51.  
  52.             Blank: 
  53.                 err := DoBlank(storage, blankRgn, params);
  54.  
  55.             DrawFrame: 
  56.                 err := DoDrawFrame(storage, blankRgn, params);
  57.  
  58.             otherwise
  59.                 if (message >= ButtonMessage) then
  60.                     err := DoSetup(blankRgn, message, params);
  61.  
  62.         end;
  63.  
  64.         main := err;
  65.  
  66.     end; {main}
  67. end.